home *** CD-ROM | disk | FTP | other *** search
/ Immoral Angel 1 / Immoral Angel 1.iso / pc / program / title.dxr / 00040.ls < prev    next >
Encoding:
Text File  |  1997-07-11  |  2.0 KB  |  83 lines
  1. on checkpackage
  2.   set videonum to EMPTY
  3.   set mh to mouseH()
  4.   set mv to mouseV()
  5.   set mh to mh - 23
  6.   if (mv > 76) and (mv < 259) then
  7.     repeat with n = 1 to 7
  8.       if (mh >= 1) and (mh <= 28) then
  9.         set videonum to n
  10.       end if
  11.       set mh to mh - 40
  12.     end repeat
  13.   else
  14.     if (mv > 268) and (mv < 451) then
  15.       repeat with n = 8 to 14
  16.         if (mh >= 1) and (mh <= 28) then
  17.           set videonum to n
  18.         end if
  19.         set mh to mh - 40
  20.       end repeat
  21.     end if
  22.   end if
  23.   rolloverpackage(videonum)
  24. end
  25.  
  26. on rolloverpackage videonum
  27.   if videonum <= 7 then
  28.     set h to ((videonum - 1) * 40) + 23
  29.     set v to 76
  30.   else
  31.     if videonum > 7 then
  32.       set h to ((videonum - 8) * 40) + 23
  33.       set v to 270
  34.     end if
  35.   end if
  36.   puppetSprite(3, 1)
  37.   set the type of sprite 3 to 1
  38.   set the ink of sprite 3 to 0
  39.   set the foreColor of sprite 3 to 255
  40.   set the backColor of sprite 3 to 0
  41.   set castname to "se" & videonum
  42.   set the castNum of sprite 3 to the number of member castname
  43.   set the locH of sprite 3 to h
  44.   set the locV of sprite 3 to v
  45.   updateStage()
  46. end
  47.  
  48. on frontbackpackage
  49.   global packagenum, whichview, cursorpointer, cursorwait
  50.   cursor(cursorwait)
  51.   set packagenum to char 3 to 5 of the name of cast the castNum of sprite clickOn()
  52.   if (packagenum = "3") or (packagenum = "7") or (packagenum = "11") then
  53.     unLoad()
  54.   end if
  55.   if whichview = "info" then
  56.     go("main1")
  57.   else
  58.     if whichview = "photo" then
  59.       go(packagenum)
  60.     end if
  61.   end if
  62.   set infopict to "info" & packagenum
  63.   set the picture of cast "info" to the picture of cast infopict
  64.   updateStage()
  65.   cursor(cursorpointer)
  66. end
  67.  
  68. on setagainpackage
  69.   global packagenum, whichview, cursorpointer, cursorwait
  70.   cursor(cursorwait)
  71.   if whichview = "info" then
  72.     go("main1")
  73.   else
  74.     if whichview = "photo" then
  75.       go(packagenum)
  76.     end if
  77.   end if
  78.   set infopict to "info" & packagenum
  79.   set the picture of cast "info" to the picture of cast infopict
  80.   updateStage()
  81.   cursor(cursorpointer)
  82. end
  83.